home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
BASIC
/
0006.ZIP
/
WORK
< prev
Wrap
Text File
|
1980-01-01
|
504b
|
19 lines
C10 REM Program to watch the joystick ports
C20 REM Will Fastie - 23 Dec 81
30 KEY OFF
CLS
STRIG ON
40 F$="#### #### (##) #### #### (##)"
50 LOCATE 8,1
PRINT " Joystick A Joystick B"
60 PRINT " X Y T X Y T"
70 AX=STICK(0)
AY=STICK(1)
AT=STRIG(0) OR STRIG(1)
80 BX=STICK(2)
BY=STICK(3)
BT=STRIG(2) OR STRIG(3)
90 LOCATE 10,1
PRINT USING F$;AX,AY,AT,BX,BY,BT
100 GOTO 70